home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Music / How to generate pitch bend? < prev    next >
Text File  |  1998-10-26  |  1KB  |  30 lines
  1. HOW TO GENERATE PITCH BEND
  2.  
  3. >i have 2 questions regarding pitch bend.
  4. >
  5. >is there a simple way to generate pitch bend? i have created 53 step
  6. >tunings, but the alphavet only has so many letters. i have to start
  7. >typing weird characters... i solved this by transposing the symbol
  8. >sequences, and by defining shorter tunings in series, but this seems
  9. >like an unnecessary roundabout. suppose i want to generate a sequence of
  10. >200 beeps, 1/16 long, and run a pitch bend ramp which increases 1000
  11. >midi cents in increments of 5. do i have to go the tuning way?
  12.  
  13. There would be 200 steps in 10 semitones. For 12 semitones you
  14. need 240 steps. Define octave of 240 steps. To build symbols
  15.  
  16. (defun make-symbol-ramp (base n)
  17.    (let (out)
  18.       (dotimes (i n)
  19.         (push (intern (string (code-char (+ base i)))) out))
  20.       (nreverse out)))
  21.  
  22. (make-symbol-ramp 40 100)
  23. --> (\( \) * + \, - \. / \0 \1 \2 \3 \4 \5 \6 \7 \8 \9 \: \; < = > ? @ a b c d e f g h i j k l m n o p q r s t u v w x y z [  \\ ] ^ _ \` \a \b \c \d \e \f \g \h \i \j \k \l \m \n \o \p \q \r \s \t \u \v \w \x \y \z { \| } ~ \ ‰ Â Á È Ò ˆ ¸ \· \‡ \‚ \‰ \„)
  24.  
  25. Use base to set start from a proper symbol. But you are running out
  26. of symbols when trying to get such precision. Better way to build sounds
  27. is to use OutOfPhase. OOP is synthesis language. You can import MIDI files
  28. and then play samples or use a software synthesizer. Makes AIFF files that
  29. you can load to ProTools.
  30.